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TO: 


COLOUR 


GENIE 


AUCKLAND DISTRICT USER GROUP 
NEWSHEET 


ISSUE No. 2 


Much o-f ailiat was to bo u.i)'itte(i has alr-oad;/ boon 
nicely p'Jt toqether by our Secretary, Nola, as you will see 
■ProfTi the attached ■'minutes' o-F our last meetifiq. 


So - just a Pew items worthy oP re-merition, tl 
Pirst oP wl'iicli beinq Pinance. 


A good respor(Se so Par to get us on our Peet, and 
to enable us to put some oP yc>ur ideas into pfactice. At the 
time oP writirig our Pinancial account staiids at onl>' S60.00 
So iP you liave''nt already become a Pinancial member, send in 

■/our subscription to NOLA. ! ! ! NO PRIZES FOR BEING 

LAST . 


You sTiould also Pind attached other material oP 


i nterest : 


a) An up-dated list oP the Auckland District 
User Group prospective members. 


b) A copy oP the Chr i stchurch user group 

newsletter witbi some very usePul i nPC'rma t i oi i 
and idea-'s worthy oP thouqlit. Tbianks ANDY. 


) An extract Prom the Britisl'i Mag. ''Chewiiig 
Gum” which should clariPy ariy problem area"'? 
encountered with ROMS. 


d) Twc> small programes you can try out (agairi 
out OP Chewing Gum), one Por 'INVERSE VIDEO", 
the other Por FOKEiriq cursor control address. 


e) BLACKJACK 84. — For tliose who iriissed 
picking up a copy. Courtesy NOLA. 


P) Remember that ■'ECHO MEMORY GAME". 

Some explanatory notes. Courtesy KEITH 

McGILL. 


Eiont Porqet tliat tliis is your newsletter. So use 
it. IP you liave any prc’blems, comments, idea's to share <:•>' 
programs you would like to put Porwiard Por circulation, tl'ien 
serid them in. Obviously any "Original” miaterial will be 

r- e t u r- n e d i P r- e g u e s t e d . 




Send to any Committee member or direct to me at:- 


5J.2 GLENFIELD ROAD, 
GLENFIELD, 

AUCKLAND 10. 


Make a note o-f all -future scl'ieduled meeting — 

Next one same p-lace, Monday 2nd April. 

Remember also to bring a blank tape arid one of 
>■ <:> u r <:> u.' n prog r a m s t <:> e v r i-i a n g e , c <;> p y . o r w l-i a t e v e r . S h <:■ u Id be 

i n t er e s t i ri g . 


comp u t i fi g . 


Happy 


AUCKLAND COLOUR GENIE USERS GROUP 


MINUTES OF THE MEETING HELD ON 5TH FEBRUARY, -1984. 


28 members present. 


The following points were raised and discussed 


Fees 


It has been agreed that Subscription Fees will be set at $15.00 per family or 
member for Auckland members, and $10,00 per country family or member, or $10.00 
per University Student. Subscription Fees are now payable and, several members 
paid their fees at the meeting. First Ernie Roots 

Seconded Ken Hynds 


Disc Drives 


Rakon Computers have found a compatible disc drive unit box called the 'Wizard'. 
This can support up to five drives and has a parallel printer interface built in. 
The cost of this unit is 145 pounds from England, and as Rakon have to purchase a 
minimum number, they will supply the contact names to any Group member who likes 
to get in touch with them. Of course, the actual drives are not included in this 
cost and they would have to be purchased separately. 


Rakon have a supply of Parallel printer interfaces and cables now in a small box, 
at a cost of $68.40 (Sales Tax $8.40). This is a reduced price and they have good 
stocks of them. 


A Blackjack programme was handed out to all members present. This was translated 
from another computer by Nola Huggins, committee member. (Graphics and sound still 
have to be added as required.) 

Future Meetings 

All future meetings will be held on every fourth Monday from the 5th February, for 
the rest of the year. This means that the next meeting will be on Monday, the 2nd 
of April. Please mark your calendars for the rest of the year. 

Christchurch User's Group 

A newletter from this group was handed round by their ex-member and our new member, 
Andy Russell. (Their loss, our gain!) It was agreed at the meeting, that we would 
send them a copy of our newsletters in exchange for theirs. 

Andy also told us that a -modem has ;been developed , by Mr Chambers of the Christchurch 
group, and their Secretary is in the process of writing the software for it. 

Moonshine Computers, of Wellington, are trying to attach a Spectrum joystick to 
the Genie for sale. Moonshine would like an exchange of information as. they are 
trying to start up a Colour Genie Users Group in Wellington. They will be writing 
to Olwyn Williams. They also have some Colour Genie software available for sale. 
Exactly what is available and at what price isn't known as yet, although one of the 
members mentioned that there was a 'Hangman' program available. 


A constitution is to be drafted by the Committee and will be circulated at the next 
meeting for approval. 

A motion was also carried for a Bank Account to be started with the ASB in the name 
of the Auckland Colour Genie Users Group. There are to be the four committee 
members names on the account, with any two as signitories on the cheques. 

f"n C>Pt" f'ViO f-K*? *-• 


Nola is 


Comments from the group were made on what exactly we all expected from these 
meetings. The following points were raised: 

information, 

expansion of Colour Genie's capabilities over and above the manual, 
finding out what was available both in England and Germany, 
improving our basic programming and later on, machine code programming 

From these comments the following emerged: 

As we have the German address for the company writing both software and the 
technical manager, we (Olwyn Williams) will write to them. 

There is, in England, Forth available. Perhaps we should look into the 
availability of this. 

A technical manual is now available from Lowe Computers in England. This 
manual has been translated from the German manual and costs 20 pounds. Rakon 
Computers have been told that they will have to purchase a minimum of 100 
copies, although this will drop the price of the manual down to about 5 pounds. 
Rakon are prepared to purchase 100 if there is a good chance of selling that 
many. 

The idea was raised that perhaps one of our members could write to Lowe's and 
send them the 20 pounds to purchase oneananual. Nola was to talk to Rakon 
about this and see if Rakon could fund the purchase, as they had offered to 
try and purchase one and photocopy it for the group. 

It was also suggested by one of the members that we all put in say, $2.00, and 
someone could purchase one in their o\m name. Nola is to sound out Rakon first 
and if this doesn't work, then we will try the second method. (by hook or by 
crook! ! ) 


It was suggested by a member that for the next meeting we all bring along a 
blank tape and we could swap or tape programmes that we didn't have. So please 
bring along both a blank tape and a tape that you are tired of. 

It was also suggested that a class be started up in Basic e.g. programming style. 
Hopefully, this will start on the 2nd April, ani will initially be run by 01\>ryn. 

One of our members works for Rank ICerox and has offered to get photocopying done 
at very reasonable rates. (Now all we need is something to photocopy!) 

Purchase of the Gumboot magazines is also being looked into. Nola is to write 
to the G.B. Colour Genie Users Group and sound them out re bulk purchases of their 
magazine. 


Rakon have apparently got a source listing for the Genie. Nola is to see if she 
can wrest it out of their hands and into ours. 

Rakon also have a couple of printers available, a Copal at $998 retail, is bi- 
directional, has both tractor and form feed and is a lovely machine. They 

also have the Seikosha GPJOO available at approx. $685.00. 

The meeting ended at about 9,45 p.m, with a cup of tea/coffee being available, 
then a play on the machines with the games that Rakon provided for the evening. 


AUCKLAND COLOUR GENIE USERS GUOUP 


List of member's names as 

at 6/2/84 


Name 

Address 

Phone No. 

AVIS, Steven 

12 Ruru Crescent, Putaruru. 

7750 

ALVREZ, Fred 

49 Astley Avenue, New Lynn 

873 120 

BISHOP, Chris 

6 Jenanne Place, Glenfield 

444 5301 

EUSAK, Alex and Kevyn 

14 Awakino Place, Manurewa 

266 7423 

FISHER, Peter 

64 Old Wairoa Road, Papakura 

298 4654 

FROST, Paul 

1/26A West End Road, Herne Bay 

765 462 

GOLDIE, Willie & Andrew 

24 Douglas Avenue, Mt Albert 

867 533 

GREEN, Mike 

49 Athely Road, New Lynn 

873 120 

HAMILL, family 

26 Ashlynne Avenue, Papatoetoe 

278 9585 

HARRIS, Bert 

15 Seakens Way, Glen Eden 

818 4660 

HART, Brian and family 

400 Weymouth Road, Manurewa 

266 5184 

(Weymouth Girls Si 

HILL, Gerrard & family 

86 Wallace Road, Papateotoe 

278 3446 

HUGGINS, Nola 

612 Mt Albert Road, Royal Oak. 

655 718 

HYNDS, Ken • 

13 Ngahue Crescent, Whcnuapai 

416 7404 

IRVINE, Robyn 

430 "Massey Road, Mangere East 

275 7007 

KAY, Ross 

2/9 Longreach Drive, Glen Eden 

818 4818 

LOCKERBIE, Claire & Roger 

63 Grampian Road, St. lleliers 


LIDDELL, Darren 

91 Taikata Road, Te Atatu North 

834 7129 

MAJOR, Daryl 

90 Gloria Avenue, Te Atatu North 

834 7654 

McGILL, Keith 

15 Manapouri Place, Pakuranga 

565 643 

MULLEN, Peter 

54 Park Road, Glenfield 

444 9155 

MATEER, Dan 

Wharamaru School, R.D., Mangakino 


MILLAR, Robert 

17 Onewa Road, Northcote 

486 504 

RICHMOND, Bob 

181 Browns Bay Road, Browns Bay 

478 4745 

ROOTS, Ernie 

512 Glenfield Road, Glenfield 

444 9669 

RUSSELL, Andy 

2 Takitimu Street, Whenuapai 

3000 Ext 731 



(work only) 

SAVILLE, family 

7A Southlynn Road, Titirangi 

817 6491 

SEYB, Bruce 

127 Cannongate St, Birkdale 


SIETKIEWICZ, Michael 

11 Budgen Street, Mt Roskill 

692 194 

STRANAGHAN, Vina& family 

29 Haseler Crescent, Howick 

535 7450 

TUAVERA, Jeffery 

732 Sandringham Road, Sandringham 

693 986 

WEBB, Mrs M. 

75 Lantana Road, Green flay 

817 5166 

WESSELING, Ralph 

112 Pt View Drive, Howick 

535 6134 

WILLIAMS, Olwyn 

3/26A West End Road, Herne Bay 

761 954 

WILSON, Mark 

Green's Road, 2 R.D., Albany 

4159 952 



’'CHRISTCHURCH COLOUR GENIE USERS GROUP 


Newsletter 1 
8 February 1984 


GREETING S I I 

Welcome to the group and the first of 
many newsletters for the group. A lot has happened 
since our inaugural meeting. The numbers of 
interested persons has grown considerably and no 
doubt the meeting on the 8th will pay testimony to 
this. Contacts are continuing, spread the word, 
the more the merrier and we can all benefit if the 
group has a sound footing. Well I enjoyed being 
Secretary for as long as it has lasted but as can 
be expected in the Armed Forces I have recently been 
told to move to Auckland by the 5th of March. I am 
going to another Job that will give me extensive 
overseas travel and especially Singapore and sometimes 
Hong Kong and the UK. I am going to remain a member 
and gain as much good information as I possibly can 
which the group shall eventually get. 

The aim of the newsletter is to pass on 
anything and everything of interest to the group, 
so .with that endeavour in mind how about making the 
odd contribution to make the newsletter all the 
better. 

Memory Map . 

I 

I obtained this 'from Rakon ages ago auid 
hopefully will be of some use. Worthy of particular 
note is the room or capacity for the 12K ROM cartridge 
There appears to be no reason why this can not be a 
12K RAM pack which v^ould 'be great use to those RAJ^'I 
gobbling computer programmers of us. 

1 

Anyway here it is : 


/(dec) 


- 2 - 


(DEC) 

(HEX) 



(0) 

0000 




1st 

8K ROM : 

(819"1) 

1FFF 



(8192) 

2000 

2nd 

8K ROM : 

(16385) 

5FFF 



(16384) 

4000 

COMMUNICATION : A 

AREA 


(17407) 

45FF 


1 

i 


(17408) 

4400 

TEXT DISPLAY AREA: 


(18451) 

47FF 


1 

i 

(18452) 

4800 

HI RES. DISPLAY : 
AREA 

y 

(22527) 

57FF 



1st 16K RAM 

(22528) 

5800 

USER RAM : 1 


(52767) 

7FFP 




(32768) 

8000 

16K RAM : 

( expansion) 

(-16385) 

BFFF 



(-16584) 

C000 

12K cartridge : 

(ROM or RAM?) 

(-4097) 

EFFF 



(-4096) 

F000 

IK Colour RAM : 

(-5075) 

F5FF 



(-5072) 

F400 

IK 'PROG. CHAR : 

RAM 

(-2049) 

F7FF 

1 


(-2048) 

F800 

KEYBOARD AREA : 

(-1025) 

FBFF 

1 


(-1024) 

FC00 

DISB 

; 1PL : 

(-1) 

FFFF 

(INITIAL PROGRAMME LOADER) 

Info Folder 

• 




The secretary has 


a folder that hopefully 


will hold all published material to do with the 


/Colour 
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Colour Genie whatever it might be. This is well 
under way and if you have anything to add then ring 
me or send it to me. The idea being that if you 
want a particular article then it will be copied 
for you and sent to you. Depending on the volume 
of copying required will depend whether or not we 
will need to charge for the service. (Maybe 10/$ 
a copy) 

Mail . 


Several letters have been sent out to 
various computer shops, magazines and people. Also 
a letter has gone to the UK Users Group and hopefully 
a wealth of information shall return. 

EACA. 


I guess no news is good news but several 
lines of enquiry have failed to discover what 
exactly has happened or what is going on at present 
and where we stand. Enquires have also been made 
regarding the Technical Manual and the Disc drives. 
I guess only time will tell. 

IF-THEN-ELSE. 


Recently I entered a programme which used 
several variations of the IF-THEN etc statements. I 
have written out a list of them, I hope they are of 
use. They all work as long as the grammar is^of 
course^ correct. 

IF (RM 62 AITD RI.1 30) AND F(0)=0 THEN 


IF (EM=26 AND F(0)=0) MD (D = 1 or D = ^) THEN 


IF C(15)=1 and not (RaM=55'OR RIv!=3^+ OR RIi'I=55 OR 

r.m=57) then 

IF (0B=5 OR 0B=4) AND (D=1 OR D=4) THEN GOSUB 71^ 
GOSUB 720 : RETURN ELSE END 


IF OB =3 then D=4 else IF 0 


L 


Note: If the ELBE is left off at the 


end then the pro 
the next line nu 


Fortress of Evil. 


4 THEN D=3 ELSE IF etc. 


gramme continues onto 
pber . 

(Paul Miller) 


For those with the game here is a list of 
Verbs and Nouns that can b4 used: 


Verbs: GET, TAKE, PUT, DROP, OPEN, READ, 

CAST, THROW, STAB, SLAY, CUT, STR, 
DRINK, EiiT, FIRE, SHOW, ATTACK, 
KILL, INVENTORY, ? 

Nouns: SWORD, BOTTLE, BOX, BOW, QUIVER, 

BOOK, DE^0N, SPELL, I'.UZARD, POTION, 
FOOD, WINE, MESH, GRILL, BOTTLES, 
SNAKE i 


New Roil 


It Nil reported that loie uiiri xere htvin; trouble xith Zen xith the nex Ron, the oroblet beino that the 
save/load/verKy casiette coniandi xere OK for the source file but xhen issetblinq to cassette the resultant Systei 

tapes boltoi of the lyitery I visited the headquarters of the intrepid BUHBOOT softxare 

establishient and this is the rather confuslno result of lany hours of testing. This first set of tests xere carried 
out on the 32K nex Roe Benie used at HO for all cassette duplication, the aichine is fitted xith the nex Loxe 

cure-all tape interface. • . ^ . . . 

Zen loaded free cassette first tiie and the folloxing little prcgrai xrltten and saved to cassette: 


ORB 788IK 
EXEC 7BB0H 
LD A,*£' 
CALL 33H 
JP 1A19H 
END 


The prograi xas then assesbled to cassette xith the *C‘ option three tises and the recordings xere verified 
xith ‘VO*. 

In every instance Zen reported a Bad Tape indicating an Identifying byte or checksus error. Hoxever by 
reducing the volute setting on the cassette satisfactory verifications xere aade on all three recordings, so after 
returning to Sasic these tapes xere then loaded xith the Systes coiiand. Again xith the norial voiuie setting the 
tapes xould not load but at the loxer voluie they loaded correctly and the prograi xorked as expected after keying 
/ (RETURN). 


Returning to Zen xith the volute setting turned doxn the Systei lipe copying coiiands xere used and the 
copied prograi tested. 

This loaded correctly at both high and lox volute levels. An alternative approach if every atteipt at 
asseibling to cassette fails xould be to include in the source file the fclloxing line; 

LOAD 7800H 

iiiediately after the 
ORB 7O0BH. 


This xould instruct Zen to load the object cede directly into leiory as it xas being asseabled. 

B7808 xould convince you that it had actually got there. Xhen using the LOAD pseudo-op it is ieportant that 
only leiory not occupied by Zen is used to store the code. Usually this is betxeen the END of the source file and 
HIMtN as Zen resides froi the load address given in the lanual up to the START of the source file. Once the object 
code is in aeiory it can then be xrltten to cassette as an object or Systei tape xith the 'X0‘ coixand as explained 
in the lanual. 

The only explanation xe have is based on the fact that xhen asseibling to cassette, there are inevitable 
pauses betxeen xritino the blocks of data to the cassette xhsn Zen is evaluating the source codt and building up the 
buffer of data for output. At all other tiiei the xriting to tape is done is one continuous operation even though the 
data is in separate blocks. It is possible that the Nex Rots have lore sensitive tape input routines and that in 
these pauses the Benie is picking up noise froi the tape and interpreting this noise as data. 

Nox mother prograi, one of Euiboot's lost popular, hid also been giving probleis. This xas xrltten in Sasic 
and used PRINT#-!, for saving data to tape and IHPUTjpl, for retrieval. this prograi loaded first tiie and the data 
saving and retrieval tested at all voluie levels. In every case the Genie rejected the data on the tape and xe could 
not get a successful read. 

After crossing the border back to Derbyshire I repeated the tests on old UK nex Roi lachine I norially use 
xith slightly different results. The cassette recorder xas the saie take Eaca EG28U as at Guiboot but xithout the 
black box. This tiie all cassette I/O xorked perfectly for i/c and Sasic over a xide range of volute settings and 1 
could not generate any faults. Then I tried to copy soie prograis froi the old faithful TRSBB using softxare in the 
Tandy to output at Colour Genie speed and foriit. In both Systei foriat and in Basic, using identical procedures 
that have xorked 1001 in the past 1 xas unable to get one transfer even partly correct. The short i/c tapes xere 
rejected out of hand xith nothing being loaded into leiory and the Basic ones (just txo REN lines) case across as 
utter garbage. Nox 1 knox that nothing has changed at the TRSS0 end so it lust be the Roi change in the Benie that is 
causing the trouble. 


(After xriting that paragraph I realised that the output froi the TRS80 should have gone to the Aux and not 
the Nic on the CTR88 recorder and after snitching the leads everything xorked perfectly.) 


Nox the Guiboot lachlne hid also been used recently for doxnloading off their TRS8B so it appeared that txo 
supposedly identical lachines xere perforiing siiilarly under a lachine code environient albeit xith the need to tune 
the voluie levels and that could be due to differences in the xay the tape recorders xere set up, but one xould input 
a datafile froi cassette in Basic ind the other xouldn't. 

To check that both lachines xere identical I used the folloxing Basic prograi to evaluate checksuis for the 
RONS in the lachinei 

10 DEFINTA d-oloo — ■ 

20 FOR A»8 TO INfEBB , 'O 

30 IF (A AND WFFF) »8 THEN ?C:C*0 o ;::xer-0 

48 CsCfPEEKfAI^^^ ^ 

58 NETT 


Ignoring the first zero, the Guiboot iichine and line gave these values; 

Roi 1 Roi 2 Roi 3 Roi 4 

laurie’i 4491B4 448375 475204 47B015 

b'uiBobt JWm TW75 T757T8 47B8iy- 


lox XI cm identify the culprit and after checking xith Keith Bedford it Loxes,the explination is as follows! 
early Loiour benies has, at first, prototype KUNb xn;c.n xorked oreiy xell.Nhen the standard ivuk! Kun xas 

v. t- iz-i 'T V..! — T Ui ^- T TT T ‘ it w j * ; ' , " i ^ ^1. .b I , . 1 > -t.~ --J ij - i T _ j . i j '■ II "v . L ' f . i. ■ 1. 1 — TTTt — x-rrr: _ 







lachine has sufferee td/i this oy niving ihdorrect cnanaes tafle''the NUN. 

it your lachine gives you buiBoot values get HUN i upaated.lt not then if you are experiencing probleis then 
try cleaning your heads on the cassetteT" 


laurie Shields, Ningerxorth, (B244) 7554B 















THROUGHOUT THIS MONTH'S MAGAZINE, YOU WILL FIND LOTS OF PROGRAMS 
TO TYPE IN. WE HOPE YOU ENJOY THEM ALL, AND WOULD LIKE TO TAKE 
THIS OPPORTUNITY TO THANK ALL THE AUTHORS FOR THEIR TIME AND EFFORT. 


Here is i little prograe froi Vergison Yvan of Vest Geriany. Just iaagine, Inverse Video!! 

, 10 '(c) 1V83 Vergison Yvan Dortaund WES 12 IR <770 Lcest West Beruny 

20 CIS 

09.40 t i H B FFF ■ Line 30 should read FOR X=&HBF000TO &HBFFF 
<0 READ Y I IF Y • 999 THEN 60 ELSE POKE I,Y t NEXT 

50 DATA 126,230,255, 119, 35, 201, 217, 33, 0,68, 6, 255, 285, 0,191, 14, 251, 6, 255, 205,0, 

191, 16, 251, 6, 255. 205,4, 1,191, 16, i51, 4, 255, 265, 0.191, 14,251, 6, 234, 205 ,0,l2l,l4, 251,217,201, 999 
40 PftlHT StRINejl4i,202)iSTRINB4(38,32)iStRIN4l(2,2fl2)i' Deao Inverse Video'iSTRiHS}l20,32) : 


DU rnini d 1 i ttu# 1 1 i • x u a / • g i ni no# wo ■ da i 

STRINBt(I7,195);STRlNG»(l2,32)!STRlHBI(2,202)i 
70 PftiNT STRIHBI(38,32)|STR1NS»(41,202) 

80 FOR I « I TO 100 : CALL BF07 : FOR Y * I TO 10 : NEXT Y : NEXT X 
90 PRINT • 

1 = CHARI 2 * CHAR2 

3 « CHAR3 4 » CHAR4 

5 * CLS 6 = Print Characters 

<Space Bar) * Invert Video* 

100 FOR N » 32 TO 255 i PRINT CHRKNlii NEXT 
110 Af^INKEYf ! IF A$ » ’* THEN 110 ' 


STRIHGJ(2,202);' 


120 IF Al * ■ • THEN 130 ELSE A * VAL(AI1 i IF A < 1 OR A > 6 THEN 110 ELSE ON A BOTO 140,150,160,170,180,190 
130 CALL BF07 ! GOTO 110 ' ' ' ' ' 

140 CHARI : GOTO 110 
150 CHAR2 ! BOTO 110 
160 CHAR3 : GOTO 110 
170 CHAR4 i BOTO 110 
180 CLS : BOTO 110 
190 GOTO 100 

POKElng the CURSOR. 

The folloKing ii a ssall prograi trhich illustrates the effects of poleing address 16410. Address 16410 is the 
cursor control address. 

-VLs:; 10 BOSUB 140 

20 FOR K = 1 TO 255 
30 LET C « RND(12) 

40 COLOUR C 
50 POKE 16410, K 

60 PRINT ‘This is the cursor with POKE No. 'jK: 

70 INPUT Bl 

60 IF K/20 « INT(K/201 THEN BOSUB 140 
90 NEXT K 
100 PRINT 
110 COLOUR 3 

120 PRINT'That's All There Is!!!* 

130 END 
140 CLS 
150 COLOUR10 

160 PRINT * Cursor Investigation* 

170 COLOUR 3 
180 PRINT* 

190 RETURN 

Froi this prograi you can see 

POKE No. TYPE OF CURSOR 

1*7 . Static 

44-71 Flashing Fast 

96 - 103 Flashing Slox 

129 - 135 Static 

192 - 199 Flashing Fast 

224 - 231 Flashing Sloe 


T3ACK ISSUES OF "CHEWING GUM" 

We still have a few back issues available at 40p plus postage, but we now have only 
June, October and November, as the others were not printed in sufficient numbers to 
meet the demand we now have for back Issues. Sorry about this, but re-prints arc rather 
expensive, especially when only a few are needed. 



Leam to min in the privacy of your own home 




by George Stewart 

B lackjack, or twenty-one, Is . 
one of the most popular c^d 
games in casinos in the U.S.’ ' 

The rules are simple and the 
■trategy for winning is not too dif-- 
.cult. In this article, we present a 
program that turns your computer 
into a blackjack dealer so you can 
shai-pcn your skills without risking 
a thing— c.xcept, perhaps, a little 
pride. 

To keep the program from get- 
ting too long, we have abbreviated 
the rules of blaclyack xvithout 
changing the essentials. This 
shortened version should be ac- 
ceptable even to veteran blackjack 
players because there are dozens of 
variations of the game anyway. We . 
call our version Blackjack '84 in hopes that it will con- 
tinue to entertain you during the coming year. 

. ^ Object and Rules of the Game 

In Blackjack ’84 you play against the computer, 
henceforth referred to as the dealer. The object of the 
'tame is to acquire a hand that totals 21 or comes as 
•lose ns possible to 21 without going over or "bust- 
ing.” The hand with the highest total not exceeding 21 
wins. The values of each card are 

Aces— 11 or 1 at your option 
Jacks, queens, kings— 10 

Others— same as the card’s index: 2, 3, 4, and so forth. 

Note that a card’s suit (hearts, diamonds, clubs, or 
spades) h.as no effect on its value. 

You place bets using imaginary chips. At the begin- 
ning of a game, you have 100 chips. To start each hand, 
you must put five chips, called the ante, on the table; 


this amount serves as the winner’s pool. As play pi-o- 
gresses, you may increase the size of the pool. 

'The dealer and player both receive two cards to 
start. Only one of the dealer’s cards is visible to you, 
however, so you can’t tell precisely how good or but! 
the dealer’s hand is. In a real game of blackjack, each 
player’s cards are dealt facedown so the players can- 
not see each other’s hands. In our version, because the 
dealer doesn’t care what cards you have, your cards 
are dealt faceup. 

After receiving your first two cards, you have four 
options: increase your bet; receive another card 
("hit”); keep your present hand (‘'st.and"); or review 
the current state of the game. 

You continue hitting and betting until you bust or 
are satisfied with your total. If you bust, the round 
ends immediately and the dealer automatically takes 
the winnings without having to show his hand or draw 

Ccorgc Slcwarl ia a contribuling editor of Popular Couipuliug. 
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additional cards. That's one of the advantages of being 
the dealer. 

If you stand, the dealer then takes a turn at improv- 
ing his hand. However, his procedure for doing so is 
predetermined. If his total is less than 17, he must 
draw a card; if the total is 17 or more, he must stand. A 
lack of flexibility is one of the disadvantages of being 
the dealer— and the key to your winning opportunities. 

After the dealer stands, the two hands are totaled 
and compared. In our version of the game, if you win 
with a total of 21 (called a blackjack), you receive triple 
the amount in the pool. If you win with a total less 
than 21, you receive double the amount in the pool. If 
you lose to the dealer or bust (draw a total more than 
.21), the winnings pool goes to the dealer. If both hands 
have the same total, the hand containing the fewest 
cards Oowest card count) wins. If the card counts are 
also the same, the round is judged a tie; the bet re- 
mains on the table and a new hand is dealt. 

The Deck 

— The dealer uses a standard 52-card deck, ordinary in 
every way except that it exists in digital form in the 
computer’s memory. 

The "deck” is actually a 52-element array called 
D( ). D(52) is the top position in the deck, D(51) is the 
position of the next card down, and so forth. D(l) is the 
bottom position in the deck. The 62 distinct cards are 
represented by the numbers 0 through 51. It’s as if 
you took 52 blank cards and numbered them 0 through 
51: 0 is the ace of hearts, 1 is the 2 of hearts, and so 
forth. Number 51 is the king of spades. The computer 
shuffles the cards by storing the numbers 0 through 51 
at random positions in the array D( ). 

The computer keeps three additional lists. F$( ) 
stores the 13 card names or "indexes”: ace, 2, 3, ... , 
jack, queen, king. S$( ) stores the four suits: hearts, 
diamonds, clubs, spades. V( ) stores the numeric.-il 
value assigned to each of the 13 indexes. These numer- 
ic.al values correspond to the values for ace through 
king that we listed above. So, for example, V(l) is 11, 
V(2) is 2, and V(13) is 10. 

- How does the computer translate the card numbers 
0 to 51 into card indexes and suits? 

Let’s look at indexes first. Card indexes repeat in 
four periods of 13, corresponding to the four suits. For 
example, 0, 13, 26, and 39 all correspond to aces; 1, 14, 
27, and 40 all correspond to Zs; and so forth. 

The modulo function (MOD), used in algebra and 
number theory, expresses this correspondence nicely. 
For a given modulus m, x MOD m is the remainder 
after "short” or integer division of z by m. For exam- 
ple, 30 MOD 13 = 4 because 30 divided by 13 equals 2 
with a remainder of 4. 

For any card number, we express it in modulo 13, 
which produces a number from 0 to 12. Now we add 1, 
getting a number from 1 to 13, which corresponds to 
the 13 possible index names. To summarize: 


Index number = Card number modulo 13 + 1 
Index name = F$ (Index number) 

To determine a c.ard’s suit, wo observe that card 
values 0 to 12 are hearts, 13 to 25 are diamonds, 20 to 
38 are clubs, and 39 to 51 are spades. Dividing a card 
number by 13 and discarding the fractional pai'L of tho 
quotient gives us a number from 0 to 3. Adding 1 gives 
us a number from 1 to 4, corresponding to the four 
suits. The formulas to do all this arc 

Suit number = Integer p.art of (card number + 13 )m- 1 
Suit name = S? (Suit number) 
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3 ' BLACKJACK 

4 < 

7 ' 

8 'INITIALISING AND SETTING UP VALUES 

9 - 

10 RANDOM 

20 SSM00;AN=5;DS=17 

30 DIM D(52),Fm3),S«(4),H(2,ll),A(2),V(13),T(2),C(2).PN»(2) 

40 PN$(1)='‘DEALER*:PN»(2) = -PLAYER‘ 

50 FOR J=1 TO 13;READ F<(J):NEXT J 

60 DATA ACE, 2, 3, 4, 5, 6, 7, 8, 9, 10, JACK, QUEEN, KING 

70 FOR J=I TO 4:READ S«(J):NEXT J 

80 DATA HEARTS, DIAMONDS, CLUBS, SPADES 

90 FOR J=1 TO 13:READ V(J);NEXT J 

100 DATA 11,2,3,4,5,6,7,8,9,10,10,10,10,10 

107 ' 

108 'START THE GAME 

109 ' 

110 CLS 
120 SC=SS 

123 T\ = 'tn BLACKJACK '84 ttr 

130 COLOUR2;PRINT TAB(20-LEN(T<)/2) ;T« :PRINT;PRINT 

140 C0L0UR4;PR1NT 'YOU HAVE" SC 'CHIPS TO START WITH.’ 

150 COLOUR3;PRINT:PRINT "THE ANTE IS’ AN 

160 COLOURS; PR I NT: PR I NT 'HERE'S THE FIRST ROUND. . . ’ iPRINTiFOR 1 = 1 TO 3000:NEXT 

170 GOSUB 690 

180 IF SC>=AN THEN 190 

182 COLOURS: PR I NT 'YOU CAN'T HAKE THE ANTE.’ 

184 COLOURS: PR I NT "GAME OVER. ": PR I NT; PR I NT: END 
190 SC=SC-AN;PB=AN 

200 COLOURl:PRlNT “AFTER PUTTING UP THE ANTE, YOU HAVE" 

210 COLOURl:PRINT SC" CHIPS REMAINING’ 

220 COLOUR4;PRINT;PRINT "NEW HAND’ 

230 SF=0 

240 FOR WH= 1 TO 2 
250 T(WH)=0;C(WH)=0 
260 GOSUB 780 
270 GOSUB 780 
280 GOSUB 830: GOSUB 940 
290 NEXT WH 

297 ' 

298 'PLAYER'S MOVE 

299 ' 

300 IF T(2)>21 THEN 480 
310 WH=2 

320 COLOUR2: INPUT "BET, HIT, STAND, OR REVIEW CARDS 

<B / H / S / R> ’lYia 

330 IF YN1=’B’ THEN GOSUB 630: GOTO 320 

340 IF YN»=’H’ THEN GOSUB 730: J=C(2) iGOSUB 1010;COLOUR5:PRINT 'CARD IS "CNI;;G0SUB lOTOlGOSUB 330;GOTO 300 
350 IF Yin="R’ THEN CLS: COLOURS; PR I NT "YOU HAVE’ SC "CHIPS. ’;C0L0UR4:PRINT "THE BET IS" PB:FOR yK=l TO 2;G0 
;GOTO 310 

360 IF YN$=’S’ THEN 380 
370 GOTO 310 


377 ' 

378 'DEALER'S TURN 

379 ' 

380 WH=l;aS;COLOUR4:PRINT "DEALER'S TURN;"; 

390 IF T(1)>=DS THEN PRINT "DEALER STANDS. " ;GOTO 440 
400 PRINT "DEALER TAKES A CARD;" 

410 GOSUB 730;J=C(1);GOSUB 1010 

420 PRINT "CARD IS "CNt;;GOSUB 1070;GOSUB 330 

430 IF T(l)>21 THEN 440 ELSE 390 

437 ' — - 

438 'REST OF GAME 

439 ' 

440 SF=r,WH=2; GOSUB 330: GOSUB 940 

450 00L0UR5;PR1NT "PLAYER'S SCORE IS" T(2) 

460 UH=l: GOSUB 830: GOSUB 940 

470 COLOUR4;PRINT “DEALER'S SCORE IS" T(l) 

480 COLOURS; PRINT: IF T(2))21 THEN PRINT "PLAYER BUSTS. DEALER UINS" PBiGOTO 590 

490 COLOUR3:IF T(n=T(2) THEN PRINT "SCORES ARE THE SAKE.";GOTO 540 

500 IF T(2)=21 THEN COLCUR5:PRINT "BLACKJACKII PLAYER WINS" PB43;SC=SC+PBt3:GOTO 590 

510 IF T(2)>T(1) THEN COLOUR5;PRINT “PLAYER WINS"PB42;SC=SC+PB42;GOTO 590 

520 IF T(l) >21 THEN PRINT "DEALER BUSTS. PLAYER WINS" PB42;SC=SC+PBt2;GOTO 590 

530 COLOUR4:PRIHT "DEALER '*'INS"PB;GOTO 590 

540 IF C(2) <C(1) THEN T(1)=0:GOTO 570 

550 IF C(l) < C(2) THEN T(2)=0;GOTO 570 

560 COLOUR3;PRINT "STANDOFF. "; GOTO 220 

570 PRINT "LOWEST CARD CGUNT WINS" 

530 GOTO 500 

590 COLOURS; INPUT "PLAY ANOTHER HAND <Y/N>";Yfa 
600 IF YNS="Y“ THEN CLS:GOTO 180 
610 IF YN»<>"N" THEN 590 
620 FRINT:PRINT:END 

i27 ' 

623 'INCREASE-YOL'R-BET ROUTINE 

629 ' 

630 COLOURS IPRINT "YOU KnVE"SC"CHIPS REMAINING. 

HOW MUCH DO YOU WANT TO ADD" 

640 INPUT B:IF B:>SC THEN 630 
650 SC=SC-B;PB=PB+B 
660 RETURN 

637 ' 

638 'SHUFFLING-CARDS ROUTINE 

439 

690 COLOUR9:PRINT:CLS:PRINT "JUST A MOMENT. . .SHUFFLING THE CARDS. PRINT 
700 FOR J=1 TO 52;D(J)= -1:NEXT J 
710 FOR J=1 TO 52 
720 CD=RND(52) 

730 IF D(CD) 0 rl THEN 720 
740 D(CD) =J-1 . 

750 NEXT J 
760 CR-52 
770 RETURN 

777 ' 

773 'DRAW-CARD-FROM DECK 

779 ' 

780 IF CR=0 THEN GOSUB 690 
790 CV=D(CR):CR=CR-1 

800 C(WH)=C(WH)+1 
810 H(WH,C(UH))=C'; 

S20 RETURN 


827 ' 

828 'TOTAL PLAYER'S HAND 

829 '- 

830 TT=0;A(VH)=0 
840 FOR J=1 TO C(WH) 

850 CV=H(WH,J) 

860 VL=CV-1NT(CV/13)4:13M 
870 IF VL=1 THEN A(lilH)=A(ra) + l 
880 TT=TT+V(VL) 

890 NEXT J 
900 PRINT 

910 IF TT >21 AND A(WH) >0 THEN TT=TT-10;A(¥H)=A(ra)-l IGOTO 910 
920 T(WH)=TT' 

930 RETURN 

937 '— 

938 'DISPLAY-HAND ROUTINE 

939 ' 

940 PRINT PNUVHl-’S HAND:’ 

950 FOR J=1 TO C(WH) 

960 GOSUB 1010 
970 PRINT CNl ' ! 

980 NEXT J 
990 PRINT 
1000 RETURN 
1010 CV=H{'i)H,J) 

1020 VL=CV-lNT!CV/13)tI3+l 
1030 SU=INT(CV/13)+1 

1040 IF WH=1 AND J=1 AND SF=0 THEN CN«**?? OF ?????■ :GOTO 1060 
1050 Cin=F$(VL)+" OF ■+S$(3U) 

1060 RETURN 

1067 ' 

1068 'DELAY ROUTINE 

1069 ' 

1070 FOR T=1 TO 500 1 NEXT; RETURN 
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PronrP-mmo iiot.ns ' ^ 

100 DIM A dimensions the • array 'for printin.;; tlie digits 1-9 on sci'oon 
•• DI1>1 0 dimensions ,tlie-'array''-for the nuinher of liglits v;hicli may be. 

■ • .. . • asked for. '-If you • are' clever- enough to remember more than 

30 , change accordingly. 

'115 Sets score counter to .zero ' . ... ' . 

•120—140 ■ Ins tructions y ■ 

*150-160 Fills ■arra 3 ’-A(K) ■■■.yitii, the digits 1-19.. The data- arc the’ 

■ PRINTCa i^os it.ions -on screen.' ■ 

170-180 , Inputs the number - of rounds you ' vi . to play • into ■ the ■ variable 
. R, and.'print's-- the round no. on s'ci-een : . 

185 sets the difficulty level. . by adjustirif; the dclaj’- loop between 
_ the lights ■ ;-v 9 :. ■ y/' ' b". ■ . ' 

190-200. Sots the number., of lights you have cliosen into variable KU 
Line -^OO .is a .mugtrap ' ' . 

'210 Adjusts score -.b,'. ,■ 

220 Prints the numbers at the correct, position on the screen 
230-270, Loop. to print the : chosen' total of lights immediately below 
■ the corresponding number' pn: the screen, each in a different 
colour ' ‘ • 

245 Gos'ub routine selects tlic colour — one octavo of sound contaiiis 
7 different colours; the eighth and-r..inth notes, being cxaclly 
an octave above notes 1 and 2 ,}iavo' tJ’.-c same -colours as notc.s 1 
and 2 ■ 

280-320 Loop to' enable the player to echo l.he sequence given tlio 
computer, by.t^’-ping in the appropriate digits 
320—410 If you make a mistake, '.the prograr::;io proceeds to lino 330, and 
■•in lines 340-380 repeats the correct sequence. If 3 'ou arc 
correct, the^ programme branches to 420-440, and when you press 
a key, sends you .back to -390-408, whicli print the score and 
offer you another game. • 

450-520 Subroutine . to give’ the sound and colour for each digit a.s tlio 
computer gives the sequence for- you to echo. 

530-600 Subroutine to- give the sound and colour for eacli number a.s 
you try to follow, tlie sequence. 

610-680 Subroutine to' give a . repeat, of tlie cori-ect sequence after 3^011 
.have made a mistake. 

.700-800 Subroutine to s el cct .the dif f eren '- colours 
Furtlior b^otes and acknovlcdgcments - 

This.' programme . was publishcci. in a TAB ' boolc' , " 55. Advanced Programmes in 
-Basic", which is worth buying .Most of tl\G .jirogrammcs can bo adap-lod 
withou’-l. too much trouble for Colour Genie. I have translated oigh-l of 
the games arid tlirce of the utility/busines:; programmes, and I an not 
"advanced" .... 

The original parts of the programrao arc the sound and colour ,( lines 
45 O- 8 OO), which are specific to tlio Colour Ck-nic, and in my opinion 
make the game a lot more in-l.cresting. I am sure anyone -with more expert 
-ise than mo can improve the game still fur-lhor. 
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Greetings i i 

rte are not alone I Auclclejid nov/ tiave a functioning Users' Group I 
and they have made contact with Kobert and Liaree . The Auckland Group ' 
are interested in a newsletter exchange, also information. Copies 
of the newsletter from up north will be available at club meetings 
for you to browse over. We have also received the latest copy of 
•Chev/ing Gum' from the U.K. Although we use material from this source [ 
in our newsletter ^with their blessing^ , you are welcome to a copy of j 
anything else you find of interest. unfortunately, this will cost i 

1 Scents per page ^.including postage;, and we are providing order forms i 
at club meetings for you to complete. This copying service also j 

applies to any articles held on file. The requested pages will be 
forwarded to you within a week. This is the fairest way v/e can ensure ; 
that everyone gets the information or listings he/she v/ants, as it is 
too difficult to chase up original copies. i 

Out-of-towners - please note. We are happy to copy the whole 'i 

magazine for you at a cost of ^^2.50, or, if you send your preferences ! 
for listings, information, or whatever, we will copy and send tnese ; 
to you. you can of course purchase your own copy of 'Chewing Gum* 
and individually join the U.K. Group, but we feel that this could be 
less costly to you. 

Our response from Rakon v/as a newsletter sent to everyone on 
their mailing list. (.hot a very satisfactory reply in the Chair- 
person's eyes;. This is available for perusal. Please note the 
new prive of Centronic Printer Interfaces - y6B.40, also the infor- 
mation on Disk Drives. We may have more information on Disk Drives 
and the nev/ ROM at our May meeting. 

This newsletter is for you - DUT ~ it is not only to read ill.' 

It is for youto share your ideas, tips, comments, programmes, swap 
and sell - whatever you v/ant. This means that you need to get your 
fingers tapping. Any material for this will be gratefully received 
by Liz T. 

We close witn a big HIl to our nev/ members this month, and all 
those Colour Genie buffs up north - it's good to know you're there. 
Remember - the • programmers that play togetner, stay together. 

Your Committee. 


^ BOOK CORNER. 

have you seen 

Learning to Use the Colour Genie, pub. Gower ^available in U.K.; 

^one of a series of Learning to Use ; 

Games for your 'TRStiO - The virgin Computer Games Series ^>8.^5 
Lxplore Computing with the THS-tiU Common Sense;, with programming 
ih Basic - Andre e oc Andre e, pub. prentice hall, Inc., u.J., u.S.A 

How aoout Sharing your 'book list' with us V 
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ARRAYS 

72 

JOY 
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READ 

67 
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nELATIONA 
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ASCII CODFS 55 

KEYPAD 
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OPERATORS 
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REM 

70 

'>UT0 

10 

LEFT^^ 

75 

RESTORE 

68 

dGRD 

90 

LEN 

76 

rvESUME 

69 



let 

52 

RETURN 

69 

CALL 

. 111 

LGR 

83 

rights 

75 

oJIAR 

84 

LLIST 

16 

RUN 

16 

CHR3 

74 

LIST 10 
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CLEAR 

13.31 

LOGICAL 


SCALE 

99 

uLS 

84 

uPERATORS 

1 5 

SHAPE 

99 

uLOAD 

13 

dPRINT 

53 

;bOUND 104 

.107 

CO NT 

14 



STEP 

41 

ePOIKT 

91 

i'.AThS 

• 

STOP 

71 

eSAVE 

14 

FUNCTIONS 

79 

STRS 

76 



nEM 

113 

STRINGS 

73 

DATA 

31 

mlDS 

76 

STRINGS 

77 

DEP. 

32 



SYSTEM 

17 

delete 

32 

nBGD 

90 



DIM 

35 

NEW 

16 

TO 

41 



NEXT 

41 

troff/tro 

V. 17 

EDIT 

15.20 

nPLOT 

93 



ELSE 

47 

N SHAPE 

94 

uSR 

1 14 

END 

36 





£.RL 

36 

uN ERROR 

53 

VAL 

77 

ERR 

36 

ON GO SUB 

55 

VARIABLES 

2 

ERROR CODES 37 

ON GOTO 

56 

vARPTR 

115 



ORDER OF 


VERIFY 

1 9 

rCLS 

92 

OPERATORS 

8 



FCOLOUR 

92 

OUT 

1 1 2 

XSHAPE 

1 03 

FGR 

90 





FILUFCLS) 

93 

PAINT 

94 

&H 

1 1 5 

FKEY 

40 

PEEK 

1 1 2 

&0 

1 1 6 

FOR 

41 

PLAY 

104 



FRE 

75 

PLOT 

96 





eoke 

1 13 



GO SUB 

45 

EOS 

86 



GOTO 

44 

eRINT 

58 



uRaPhI CS 


PRINT//-1 

66 



CHRS 

87 

rRINT@ 60.86 





erint tab 

60 



IP 

45.46 

PRINT USiNo 

61 


INKEYS 

48 





iNP 

.112 





INPUT 

48 





INPUT#-! 

51 






Thia Index for the 
Colour Genie Hanual 
hao been supplied by 
Ray Cox . K . ; ex 
Chewing Gum magazine . 

Cut it out and paste it 
in the back of your 
manual - it makes it 
much easier to find 
things you need to know. 
It also has more list- 
ings than are supplied 
in the manual index. 
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BHSIC LE5SON 


i’or those eager to peek ahead , ilic Basic programme for May will be 
to create a calendar which runs from January Ist lyuo up to December 
31st lyyy - being able to call up any month of any year at will. 

Bo maybe you can come up with the programme before the May meeting ?V?? 


BLilASJC ithMEMBEK - v/E liEED YOUR lUEAB, INEORl'Ul’lON, PROGRAMi,iES , 
BUGUEBI'IOHB, EOR mia REWSLErilER fO WORiC. 

iiOEU ARYOi'ii:; RAVE ARYlWiRG •xO SELL OR EACHiiNGE VV/rV 

aLL hlAfEhlAL - PEEABE PURrEJlD TO - 32 A TAUPA'IIA SPREEf, CilClI 0 


; SMIPEli- -- P-His;r"l 

■ '0 REK SNIPER By Colin Dean of Bolton. 

, ' is P9J»CHRI(185)+CHR$ll951tCHRfll85) 

/ 20 POKE(16<09).7 

30 P0KE(16<10).39 
40 COLOURS 

50 REM ADAPTED TO COLOUR 6ENIE BY C.OEANFROfl A TRS80 PROS PUBLISHED Hi HAFXH 83 U' Qf-PERSDNAL COHP TODAY. 
t0 CLS 

70 PRINT«15.*S N 1 P E R' 

80 C0L0UR4 

90 PRlNT055,STfiINGJ(11.2ll) 

100 C0LQUR2 

110 PR1NT!PR1NT6440,’Do vou need instructions? rnter Y or N.* 

120 INPUT Al 

130 IF AI«'Y'THEN 6QSUB 19t0 
140 EOTO650 

150 REH »« ROLL THE BOMBS 
! 160 C*C*1AN0 BMAX-l 

1 170 IFPE£Kll740BtB(Cl-3)<>l53THEN 260 

1B0 lFfiND(2)<l OR lNTlE/40/2)»iINT(E/40n/2THEN RETURN 

19B B(CI«£*3 

200 IF Q>BtC) THEN 620 


PART Z - FOUUOWING PRCE 

C 


pej?T 3, 


1930 C0L0UR2 

1940 PRlHI«734,SCi 

1930 RETURN 

1960 REM INSTRUCTIONS 

1970 PRIHTI448,STR1N6I(4B,32> 

1960 PRIHTt48B,STRIKeil40,32) 

1990 C0L0UR2 . , 

2000 PRINT*l20,‘You '0»-' im trylnq to steil secrtts' 

2810 PRlNTMroi a cosputcr rooc guarded by a robot '‘iCHR$(192li 


Khich i:i!! try to your 3 lives by rcllinr boebs towirci: 


r* 

2030 

2040 

2050 

2060 

2070 

2080 

c 

fll0 
2120 
2130 
2148 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2248 
2258 
2260 
2270 
2280 
, 2290 
2300 
2310 
232B 
2330 
2340 
2350 


PfilHTiPRINT'You can score points by coving around 

PRINT'eourage Hill be rcKardcd by getting as clos: 
PRIKT-.PRlNT'Points can be scored by'cugging'the 
PRINT'Kalch out for fire-balls' 

PRINTiPRINT' GET READY' 

PRINT' Press P to start' 

IF INKEY4<>'P'TH£K6OTO2E80 
RETURN 

IFP-(INT{P/40}U40()E-(INT(E/40))«40 THEN RETURN 

LV»LV-l 

PRINTI752.LVI 

LP«323 

IF E>P THEN EOTO2220 
eosuB24ee 

FOR A=Et41TOPSTEP 40 


POKE{174684A1.230 
FORTMTOSjHEITT 
P0XE(174a8tAl,32 
NEJTA 
60102280 
60SUB24BB 

FOR A*E-39T0 P STEP-4B 

POKEtl74B8tA).230 

FORTMTQSiNEITT 

PO>:E117408<A1.32 

NEITA 

REM EIPLOSION 

PRINTtP.BLAMKJ 

FORY*0TO12 

S*t7ANDYlH 

COLOURS 

PfiIHT!P,P9J 

SOUND6.0 

SOUND?. 7 


the roos using the rrrsN keys shooting the robot Kith your User rifle, ytu 

to the rebel as pcssitle before firing nlth the spacer bar. 

robot frer the sic'c, bonus points can be earned by a brave frontal asault 


2363 SOUNDS, 16 
2370 S0UND9,16 
2383 SOUND10,16 
2593 SQUND12,56 
2'ieD SOUND 13,0 
2tlB PRINT6P,'Q+B' 

:':23 NEXTY 

2'3a FRINTEP,BLANKI 

2U,a P=LP 

2450 PRINTEP.PLAS 

2'.6D IFLV^BTHEN G0T03S8 

2470 RETURN 

24Ba FDRX=JT01STEP-1 

2'.90 FORY*7T01STEP-1 

25C3 PLAYIl,r,Y,15) 

2313 NEXTYiNEXTi 
2523 PLAY(1,1,Y,D1 ^ 

2333 RETURN 

EF2ATA LINE 766 EHOULD READ 
:tC ENE?«' '+CHRJ(192)f‘ ' 


2ie D»B(C) 

220 COLOUR?' 

230 PRINTeB(C).BO«BJi 
2'0 IFQ=PTHEN320 
250 RETURN 

260 PRINT«B(C).BLANKJ! 

270 BtC)»B(C)-i 
280 COLOUR? 

290 JFPEEKI17<08tB(C)-2)<>153THENPRINT0B(C),BONBIi 

300 IF fiND(I21>lTHEN IF B(CI OPTHENRETURN 

310 IFB{C)<)PTHEN470 

328 LV=LV-1 

330 C0L0UR6 

W0 PRINT8752.lv 

350 LP*323 

368 IFLV>0THEN 

378 6OSUB22B0 

380 PRINT890B.'6 A H £ OVER* 

398 PfiINT8B80. 'PRESS P TO PLAY iOiin!* 

480 IF INKEYIO'P* THEN SOTO 488 ‘ 

410 RUN 648 

420 IFKB(900 THEN 450 

430 KB^KBtSIC) 

440 BIO^P 
450 LP*323 

460 REH II BOMB EIPLDSION h 

478 FOR Y-8T01 

480 COLOURY+3 

490 SOUND6.0 

580 SOUND?. 7 

510 PR1NT8B(C).P9I: 

528 SOUNDS. 16 
530 S0UND9.16 
540 S0UND1B.16 
550 PR1NT8B(C).* * 

560 S0UHD12.56 
570 S0UNDI3.B 
580 HEIT Y 

590 IF KB(908THEN 620 
600 B(CI=KB-11B0 
610 RETURN 
620 B(C)=323 
630 RETURN 

648 REH It PROSRAN STARTS h 
650 CLEAR 580 
660 CHAR4 
670 DEFINT A-2 

680 bhaj:=8 

690 DIN B(BNAI-l) 

780 CLS 

710 REN III SET UP GRAPHICS m 
720 LU«PI=CHRJ(I62)+CHR»(183)+CHRI(172) 

738 HALLI=STRlNSi(3.153) 

748 BLANK$=STRINGI13.32I 
750 PLAls*!*-* 

760 ENEI** 'tCHRIllY?)!* * 

770 B0HF»CHRJ(32)iCHRI(421iCHRf(321 
780 RENiii DRAN THE ROOM m 
790 COLOUR? 

800 PRINT«B.STRINBt(40.153) 

810 PRINT8640.STRINS4(4B.153) 

820 COLOUR? . . 

830 FORY»40 TO 600 STEP 40 
840 PRINTJY.NALLI: 

858 PRINTeY+37.HALLl! 

860 NEITY 

670 COLOURS ' .. 

880 FORY=86TO608STEP80- 
890 FORY=0TO30STEPI2 
900 PRlNTgYiY.LUMPI; 

910 NEITI 
920 NEITY 

930 REH III SET UP VARIABLES ii 

940 Ps323 

950 E*313 

960 SC=0 

970 LV*3 

980 FORY*0TOBnAl-l 
990 B(Y)»233 
1000 NEITY 
1010 COLOURS 

1020 PRINT0745. 'Lives! ■:LV: 

1830 PRINTeP.PLAT: 

■ 1040 PRINTB720.*SflIPER! Scorci’iSC 
1050 REH II HAIN LOOP OF EAHE h 
1068 60SUB 1140 •plavers cove 


1070 

icon 

1090 

1108 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1188 

1190 

1200 

1210 

1220 

1230 

1248 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1368 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1483 

149D 

1500 

1510 

152(1 

1530 

1540 

1550 

1560 

1570 

10G3 

1593 

16C5 

1610 

1620 

1630 

1643 

1650 

1660 

1670 

1680 

1690 

17C3 

1710 

1723 

1730 

1740 

1750 

1760 

1773 

1780 

1790 

1800 

iBie 

1620 

1B3D 

1B4S 

1050 

1869 

1870 

leoc 

1690 

1900 

I r ' •' 
llii: 

1923 


nOGUB 1 j 0 'Roll bo«b 1 
1620 'Fire ride 
GCSLi] 150 ‘Roll bosb 2 
606U3 1450 'Taraet's bqyb 
eOSL'S 150 'Roirbocb 3 
GOTO 1060 

REM II MOVE PLAYER ii 
KB=P£EK(-1984) 

IF(KBAHD32ITHEN IF P-(INT(P/4B)i4fl) )5TH£NLP--P-3 

IF(KBAND64)THENIF P-(INT(P/40)i40)<32THENLP--Pt3 

IF(I;EANDB)THENIFP>S0THENLP=P-40 

IF (KB AND 16)TH£N IF P<720 THEN LP=Pt40 

IFP=LP or PEEK(LP+174B8)>128THENRETURN 

IFPEEK(LP+174e9)<>42THEN123a 

KB-'llOO 

GOTQ320 

PRINIfP. BLANKS: 

COLOURS 

PfilNTBLP.PLAFi 

P1=P 

P=LP 

IFPOETHEHRETURN 
REHiiHUG THE fiOBOTii 

IF Pl-(IHT(Pl/4Bl)i40>32THENSC=SC+3ELSE SC=SCd0 
Pl=8 

S0UND7.254 

S0UNDB.15 

F0RY=BT012 

COLOURS 

PRINT8E. •)-(": 

SOUNDLY 

C0L0UR3 

PRINTfiE.ENEI; 

NEITY 

SOUND?, 255 

LP=523 

60TC176fl 

REi:-::NQVE THE ENEHYu 
L=L-1 

IFL<6ANDL>BTIIENRETURN 

IFL>5THEN1523 

IFE(PTHEHD^4<!ELSED*-4B 

IFE+0<4eOR E6D>640THEHD=-D 

IFKITHEII L=RI(D(4)i7 

RETURN 

NE=EtD 

IFN£<Ga OR NE)65aTHEND»-D 
COLOUR] 

PRINTEE.ELAHNi; 

FRINTCNE.EMF; 

E’!!E 

IF E-PTHEN130O 

IF RND(2KZT1I£N GOSUB 2100 

RETURN 

RFIi It CHECK FOR RIFLE FIRE n 
iFFEEK(-1904)<>12B THEN RETURN 

ifi':t(p/40/2)»(Int(P/40)i/2Then return 
L= 33-{P-{INT(P/4B)i40)} 

COLOURS 

PRI!;T£Pt3.STRlNB4(L,451; 

F0R.L7T065TEP-1 

F0RY>7T01STEP-l 

PLRVd.I.Y.lS) 

NlITYiNEITX 

PLAYd.l.O.fll 

PRINTeP+i.BTRINSt(L,32) 

iP iOETH^H SC=SC-1 

IF (1NT!E/40))<)(1NT(P/40)1THEN 1940 

£C=SCd36-L)/3 

FOR Y=0TQ12 

S=(YAND7)+l 

COLOURS 

PRlfiT£E.P9} 

ecj;;d6.b 

Sl-J;(D7.7 
SC'.;',&2.16 
SOUND?. 16 
SOUND 10, 16 
SCUND12.56 

SGUNDlO.e 
PRINT BE, 'OlO' 

NEXT Y 

PRINTtE,ELA!;KF! 

E-313 

COi.OURT 

FniHTeE-.ENE^i 


